home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
dsplstjb.arc
/
DSPLSTJB.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-12-04
|
744b
|
13 lines
CMD PROMPT('Display Last Job') /* Command +
processing pgm is DSPLSTJOB - displays the +
last job of a group of duplicate jobs */
PARM KWD(JOB) TYPE(QUAL1) MIN(1) PROMPT('Job name:')
PARM KWD(OUTPUT) TYPE(*CHAR) LEN(5) RSTD(*YES) +
DFT(*) VALUES('*' '*LIST') PROMPT('Output +
(* or *LIST):')
QUAL1: QUAL TYPE(*NAME) LEN(10) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) PROMPT('User +
name:')
QUAL TYPE(*CHAR) LEN(6) RANGE('000001' '999999') +
PROMPT('Job number:')